home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tp6sbvoc.zip / DEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-09  |  463b  |  18 lines
  1. {$M 16384,0,0}
  2.  
  3. program Demo; { to demonstrate the SBVoice Unit }
  4.               { Copyright 1991 Amit K. Mathur, Windsor, Ontario }
  5.  
  6. uses SBVoice;
  7.  
  8. begin
  9. if paramcount>0 then begin
  10.     LoadVoice(paramstr(1),0,0);
  11.     sb_Output(seg(soundfile),ofs(soundfile)+26);
  12.     repeat
  13.          write('Demo of the SBVoice Unit, Copyright 1991 by Amit K. Mathur --- ');
  14.     until StatusWord=0;
  15. end else
  16.     writeln('Usage: DEMO [d:\path\]filename.voc');
  17. end.
  18.